home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / RLaB 1.15c / examples / fib.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  278 b   |  24 lines  |  [TEXT/RLAB]
  1. //
  2. //  Calculate Fibonacci numbers
  3. //
  4.  
  5. "Starting the fibonacci test..."
  6. i=1; 
  7. while ( i < 2 ) { 
  8.   i=i+1;
  9.   a=0; b=1;
  10.   while ( b < 10000 ) {
  11.     c = b;
  12.     b = a+b;
  13.     a = c;
  14.   }
  15. }
  16.  
  17. b
  18.  
  19. if ( b != 10946 ) {
  20.   error("failed fibonacci test");
  21. else
  22. "...passed fibonacci test..."
  23. }
  24.